<html xmlns="http://www.w3.org/1999/xhtml">
 <head>
  <meta charset="utf-8"/>
  <link href="themes/blue/style.css" rel="StyleSheet" type="text/css"/>
  <style type="text/css">
   header { background-color:white;} .drag {position:absolute;}
  </style>
  <script src="tablesorter/jquery-latest.js" type="text/javascript">
  </script>
  <script src="tablesorter/jquery.tablesorter.js" type="text/javascript">
  </script>
  <script src="external/mousescroll.js" type="text/javascript">
  </script>
  <script src="external/jquery.drag.js" type="text/javascript">
  </script>
  <script src="external/jquery.drop.js" type="text/javascript">
  </script>
  <script type="text/javascript">
   $(function () {
 $("#tab1").tablesorter({sortList:[[0,20]]});  
     });
  </script>
  <script>
  </script>
  <script type="text/javascript">
   parent.document.getElementById('result1-name').innerHTML = "Search Identifiers";
  </script>
  <title>
   Search Identifiers
  </title>
 </head>
 <body bgcolor="#ffffff">
  <table class="tablesorter" id="tab1">
   <thead>
    <tr>
     <th class="header">
      File
     </th>
     <th class="header">
      Statement
     </th>
     <th class="header">
      Pearson distance
     </th>
    </tr>
   </thead>
   <tbody>
    <tr>
     <td>
      <a href="/source?pane=result2&amp;project-component=graphic/display_disks.pli&amp;sline=15&amp;eline=16" target="result2">
       graphic/display_disks.pli
      </a>
     </td>
     <td>
      <pre>CALL WinFillRect (hps, addr (rectlDisk), disks (k).color);</pre>
     </td>
     <td>
      0.63
     </td>
    </tr>
    <tr>
     <td>
      <a href="/source?pane=result2&amp;project-component=graphic/display_disks.pli&amp;sline=6&amp;eline=16" target="result2">
       graphic/display_disks.pli
      </a>
     </td>
     <td>
      <pre>DO j = 1 TO peg (i).n
    ;
    k = peg (i).disk (j);
    rectlDisk.xleft =
    peg (i).x - ceil ((disks (k).size * horz_resolution) / 2);
    rectlDisk.ybottom = peg (i).y + (j - 1) * vert_resolution;
    rectlDisk.xright = rectlDisk.xleft + disks (k).size * horz_resolution;
    rectlDisk.ytop = rectlDisk.ybottom + horz_resolution;
    CALL WinFillRect (hps, addr (rectlDisk), disks (k).color);
    END;</pre>
     </td>
     <td>
      0.93
     </td>
    </tr>
    <tr>
     <td>
      <a href="/source?pane=result2&amp;project-component=graphic/display_disks.pli&amp;sline=4&amp;eline=17" target="result2">
       graphic/display_disks.pli
      </a>
     </td>
     <td>
      <pre>DO i = 1 TO 3
    ;
    DO j = 1 TO peg (i).n
        ;
        k = peg (i).disk (j);
        rectlDisk.xleft =
        peg (i).x - ceil ((disks (k).size * horz_resolution) / 2);
        rectlDisk.ybottom = peg (i).y + (j - 1) * vert_resolution;
        rectlDisk.xright = rectlDisk.xleft + disks (k).size * horz_resolution;
        rectlDisk.ytop = rectlDisk.ybottom + horz_resolution;
        CALL WinFillRect (hps, addr (rectlDisk), disks (k).color);
        END;
    END;</pre>
     </td>
     <td>
      0.93
     </td>
    </tr>
    <tr>
     <td>
      <a href="/source?pane=result2&amp;project-component=graphic/display_disks.pli&amp;sline=1&amp;eline=19" target="result2">
       graphic/display_disks.pli
      </a>
     </td>
     <td>
      <pre>display_disks : PROC;
    DCL (i, j, k) FIXED BIN (31);
    DCL rectlDisk LIKE rectl_type;
    DO i = 1 TO 3
        ;
        DO j = 1 TO peg (i).n
            ;
            k = peg (i).disk (j);
            rectlDisk.xleft =
            peg (i).x - ceil ((disks (k).size * horz_resolution) / 2);
            rectlDisk.ybottom = peg (i).y + (j - 1) * vert_resolution;
            rectlDisk.xright =
            rectlDisk.xleft + disks (k).size * horz_resolution;
            rectlDisk.ytop = rectlDisk.ybottom + horz_resolution;
            CALL WinFillRect (hps, addr (rectlDisk), disks (k).color);
            END;
        END;
    END display_disks;</pre>
     </td>
     <td>
      0.94
     </td>
    </tr>
    <tr>
     <td>
      <a href="/source?pane=result2&amp;project-component=graphic/client.pli&amp;sline=70&amp;eline=71" target="result2">
       graphic/client.pli
      </a>
     </td>
     <td>
      <pre>CALL WinFillRect (hps, addr (rectlPaint), CLR_BLACK);</pre>
     </td>
     <td>
      0.56
     </td>
    </tr>
    <tr>
     <td>
      <a href="/source?pane=result2&amp;project-component=graphic/client.pli&amp;sline=67&amp;eline=68" target="result2">
       graphic/client.pli
      </a>
     </td>
     <td>
      <pre>CALL WinFillRect (hps, addr (rectlPaint), CLR_BLACK);</pre>
     </td>
     <td>
      0.56
     </td>
    </tr>
    <tr>
     <td>
      <a href="/source?pane=result2&amp;project-component=graphic/client.pli&amp;sline=64&amp;eline=65" target="result2">
       graphic/client.pli
      </a>
     </td>
     <td>
      <pre>CALL WinFillRect (hps, addr (rectlPaint), CLR_BLACK);</pre>
     </td>
     <td>
      0.56
     </td>
    </tr>
    <tr>
     <td>
      <a href="/source?pane=result2&amp;project-component=graphic/client.pli&amp;sline=58&amp;eline=59" target="result2">
       graphic/client.pli
      </a>
     </td>
     <td>
      <pre>CALL WinFillRect (hps, addr (rectlPaint), CLR_BLACK);</pre>
     </td>
     <td>
      0.56
     </td>
    </tr>
    <tr>
     <td>
      <a href="/source?pane=result2&amp;project-component=graphic/client.pli&amp;sline=53&amp;eline=54" target="result2">
       graphic/client.pli
      </a>
     </td>
     <td>
      <pre>CALL WinFillRect (hps, addr (rectlPaint), CLR_WHITE);</pre>
     </td>
     <td>
      0.56
     </td>
    </tr>
    <tr>
     <td>
      <a href="/source?pane=result2&amp;project-component=graphic/client.pli&amp;sline=49&amp;eline=81" target="result2">
       graphic/client.pli
      </a>
     </td>
     <td>
      <pre>DO ;
    text_height = WindowTextbox (2).y - WindowTextbox (1).y;
    hps = WinBeginPaint (hwnd, sysnull (), sysnull ());
    CALL WinQueryWindowRect (hwnd, addr (rectlPaint));
    CALL WinFillRect (hps, addr (rectlPaint), CLR_WHITE);
    rectlPaint.xleft = horz_resolution;
    rectlPaint.ybottom = ceil (vert_resolution / 2) + text_height;
    rectlPaint.xright = 21 * horz_resolution;
    rectlPaint.ytop = peg (1).y;
    CALL WinFillRect (hps, addr (rectlPaint), CLR_BLACK);
    rectlPaint.xleft = 4 * horz_resolution - ceil (horz_resolution / 2);
    rectlPaint.ybottom = peg (1).y;
    rectlPaint.xright = rectlPaint.xleft + horz_resolution;
    rectlPaint.ytop =
    rectlPaint.ytop + (NUMBER_OF_DISKS + 1) * vert_resolution;
    CALL WinFillRect (hps, addr (rectlPaint), CLR_BLACK);
    rectlPaint.xleft = 11 * horz_resolution - ceil (horz_resolution / 2);
    rectlPaint.xright = rectlPaint.xleft + horz_resolution;
    CALL WinFillRect (hps, addr (rectlPaint), CLR_BLACK);
    rectlPaint.xleft = 18 * horz_resolution - ceil (horz_resolution / 2);
    rectlPaint.xright = rectlPaint.xleft + horz_resolution;
    CALL WinFillRect (hps, addr (rectlPaint), CLR_BLACK);
    CALL display_disks;
    rectlPaint.xleft = horz_resolution;
    rectlPaint.ybottom = -WindowTextbox (1).y;
    RC = GpiCharStringAt
    (hps, addr (rectlPaint), length (WindowText),
     addr (WindowText) + stg (null ()-&gt;VarStr));
    CALL WinEndPaint (hps);
    idTimer = WinStartTimer (hab, hwnd, 1, 2000);
    return (sysnull ());
    END;</pre>
     </td>
     <td>
      0.86
     </td>
    </tr>
    <tr>
     <td>
      <a href="/source?pane=result2&amp;project-component=graphic/client.pli&amp;sline=20&amp;eline=94" target="result2">
       graphic/client.pli
      </a>
     </td>
     <td>
      <pre>SELECT (msg);
WHEN (WM_CREATE) DO ;
    text_height = WindowTextbox (2).y - WindowTextbox (1).y;
    disks (1).color = CLR_RED;
    disks (2).color = CLR_YELLOW;
    disks (3).color = CLR_GREEN;
    disks (4).color = CLR_BLUE;
    disks (5).color = CLR_PINK;
    disks (1).size = 2;
    disks (2).size = 3;
    disks (3).size = 4;
    disks (4).size = 5;
    disks (5).size = 6;
    peg (1).n = 5;
    peg (1).disk (1) = 5;
    peg (1).disk (2) = 4;
    peg (1).disk (3) = 3;
    peg (1).disk (4) = 2;
    peg (1).disk (5) = 1;
    peg (2).n = 0;
    peg (3).n = 0;
    peg (1).x = 4 * horz_resolution;
    peg (1).y = vert_resolution + text_height - 1;
    peg (2).x = 11 * horz_resolution;
    peg (2).y = peg (1).y;
    peg (3).x = 18 * horz_resolution;
    peg (3).y = peg (1).y;
    return (sysnull ());
    END;
WHEN (WM_PAINT) DO ;
    text_height = WindowTextbox (2).y - WindowTextbox (1).y;
    hps = WinBeginPaint (hwnd, sysnull (), sysnull ());
    CALL WinQueryWindowRect (hwnd, addr (rectlPaint));
    CALL WinFillRect (hps, addr (rectlPaint), CLR_WHITE);
    rectlPaint.xleft = horz_resolution;
    rectlPaint.ybottom = ceil (vert_resolution / 2) + text_height;
    rectlPaint.xright = 21 * horz_resolution;
    rectlPaint.ytop = peg (1).y;
    CALL WinFillRect (hps, addr (rectlPaint), CLR_BLACK);
    rectlPaint.xleft = 4 * horz_resolution - ceil (horz_resolution / 2);
    rectlPaint.ybottom = peg (1).y;
    rectlPaint.xright = rectlPaint.xleft + horz_resolution;
    rectlPaint.ytop =
    rectlPaint.ytop + (NUMBER_OF_DISKS + 1) * vert_resolution;
    CALL WinFillRect (hps, addr (rectlPaint), CLR_BLACK);
    rectlPaint.xleft = 11 * horz_resolution - ceil (horz_resolution / 2);
    rectlPaint.xright = rectlPaint.xleft + horz_resolution;
    CALL WinFillRect (hps, addr (rectlPaint), CLR_BLACK);
    rectlPaint.xleft = 18 * horz_resolution - ceil (horz_resolution / 2);
    rectlPaint.xright = rectlPaint.xleft + horz_resolution;
    CALL WinFillRect (hps, addr (rectlPaint), CLR_BLACK);
    CALL display_disks;
    rectlPaint.xleft = horz_resolution;
    rectlPaint.ybottom = -WindowTextbox (1).y;
    RC = GpiCharStringAt
    (hps, addr (rectlPaint), length (WindowText),
     addr (WindowText) + stg (null ()-&gt;VarStr));
    CALL WinEndPaint (hps);
    idTimer = WinStartTimer (hab, hwnd, 1, 2000);
    return (sysnull ());
    END;
WHEN (WM_TIMER) DO ;
    IF pMove-&gt;from (1) ^= 0 THEN DO ;
        CALL move_disk (pMove-&gt;from (1), pMove-&gt;to (1));
        pMove = pMove + stg (null ()-&gt;move_table);
        IF pMove-&gt;from (1) ^= 0 THEN DO ;
            idTimer = WinStartTimer (hab, hwnd, 1, 2000); END;
        RC = WinInvalidateRegion (hwnd, NULLHANDLE, 0);
        END;
    return (sysnull ());
    END;
WHEN (WM_CLOSE) DO ;
    CALL WinPostMsg (hwnd, WM_QUIT, 0, 0); return (sysnull ()); END;
OTHERWISE DO ; return (WinDefWindowProc (hwnd, msg, mp1, mp2)); END; END;</pre>
     </td>
     <td>
      0.91
     </td>
    </tr>
    <tr>
     <td>
      <a href="/source?pane=result2&amp;project-component=graphic/client.pli&amp;sline=1&amp;eline=97" target="result2">
       graphic/client.pli
      </a>
     </td>
     <td>
      <pre>client : PROC (hwnd, msg, mp1, mp2)
RETURNS (ptr) OPTIONS (fromalien, LINKAGE (system));
    DCL hwnd FIXED BIN (31);
    DCL msg FIXED BIN (15);
    DCL (mp1, mp2) ptr;
    DCL RC FIXED BIN (31);
    DCL hps FIXED BIN (31);
    DCL text_height FIXED BIN (31);
    DCL 1 rectlPaint LIKE rectl_type;
    DCL
        1 disks (NUMBER_OF_DISKS) static,
        2 size FIXED BIN (31),
        2 color FIXED BIN (31);
    DCL
        1 peg (3) static,
        2 pos LIKE pointl_type,
        2 n FIXED BIN (31),
        2 disk (5) FIXED BIN (31);
    DCL idTimer FIXED BIN (31) static;
    SELECT (msg);
    WHEN (WM_CREATE) DO ;
        text_height = WindowTextbox (2).y - WindowTextbox (1).y;
        disks (1).color = CLR_RED;
        disks (2).color = CLR_YELLOW;
        disks (3).color = CLR_GREEN;
        disks (4).color = CLR_BLUE;
        disks (5).color = CLR_PINK;
        disks (1).size = 2;
        disks (2).size = 3;
        disks (3).size = 4;
        disks (4).size = 5;
        disks (5).size = 6;
        peg (1).n = 5;
        peg (1).disk (1) = 5;
        peg (1).disk (2) = 4;
        peg (1).disk (3) = 3;
        peg (1).disk (4) = 2;
        peg (1).disk (5) = 1;
        peg (2).n = 0;
        peg (3).n = 0;
        peg (1).x = 4 * horz_resolution;
        peg (1).y = vert_resolution + text_height - 1;
        peg (2).x = 11 * horz_resolution;
        peg (2).y = peg (1).y;
        peg (3).x = 18 * horz_resolution;
        peg (3).y = peg (1).y;
        return (sysnull ());
        END;
    WHEN (WM_PAINT) DO ;
        text_height = WindowTextbox (2).y - WindowTextbox (1).y;
        hps = WinBeginPaint (hwnd, sysnull (), sysnull ());
        CALL WinQueryWindowRect (hwnd, addr (rectlPaint));
        CALL WinFillRect (hps, addr (rectlPaint), CLR_WHITE);
        rectlPaint.xleft = horz_resolution;
        rectlPaint.ybottom = ceil (vert_resolution / 2) + text_height;
        rectlPaint.xright = 21 * horz_resolution;
        rectlPaint.ytop = peg (1).y;
        CALL WinFillRect (hps, addr (rectlPaint), CLR_BLACK);
        rectlPaint.xleft = 4 * horz_resolution - ceil (horz_resolution / 2);
        rectlPaint.ybottom = peg (1).y;
        rectlPaint.xright = rectlPaint.xleft + horz_resolution;
        rectlPaint.ytop =
        rectlPaint.ytop + (NUMBER_OF_DISKS + 1) * vert_resolution;
        CALL WinFillRect (hps, addr (rectlPaint), CLR_BLACK);
        rectlPaint.xleft = 11 * horz_resolution - ceil (horz_resolution / 2);
        rectlPaint.xright = rectlPaint.xleft + horz_resolution;
        CALL WinFillRect (hps, addr (rectlPaint), CLR_BLACK);
        rectlPaint.xleft = 18 * horz_resolution - ceil (horz_resolution / 2);
        rectlPaint.xright = rectlPaint.xleft + horz_resolution;
        CALL WinFillRect (hps, addr (rectlPaint), CLR_BLACK);
        CALL display_disks;
        rectlPaint.xleft = horz_resolution;
        rectlPaint.ybottom = -WindowTextbox (1).y;
        RC = GpiCharStringAt
        (hps, addr (rectlPaint), length (WindowText),
         addr (WindowText) + stg (null ()-&gt;VarStr));
        CALL WinEndPaint (hps);
        idTimer = WinStartTimer (hab, hwnd, 1, 2000);
        return (sysnull ());
        END;
    WHEN (WM_TIMER) DO ;
        IF pMove-&gt;from (1) ^= 0 THEN DO ;
            CALL move_disk (pMove-&gt;from (1), pMove-&gt;to (1));
            pMove = pMove + stg (null ()-&gt;move_table);
            IF pMove-&gt;from (1) ^= 0 THEN DO ;
                idTimer = WinStartTimer (hab, hwnd, 1, 2000); END;
            RC = WinInvalidateRegion (hwnd, NULLHANDLE, 0);
            END;
        return (sysnull ());
        END;
    WHEN (WM_CLOSE) DO ;
        CALL WinPostMsg (hwnd, WM_QUIT, 0, 0); return (sysnull ()); END;
    OTHERWISE DO ; return (WinDefWindowProc (hwnd, msg, mp1, mp2)); END; END;
    %INCLUDE "display_disks.pli";
    %INCLUDE "move_disk.pli";
    END client;</pre>
     </td>
     <td>
      0.91
     </td>
    </tr>
    <tr>
     <td>
      <a href="/source?pane=result2&amp;project-component=defns/defns.pli&amp;sline=201&amp;eline=207" target="result2">
       defns/defns.pli
      </a>
     </td>
     <td>
      <pre>DCL
    WinFillRect
        ENTRY (FIXED BIN (31), ptr, FIXED BIN (31))
        ext ('WinFillRect')
        RETURNS (FIXED BIN (31))
        OPTIONS (asm, byvalue, LINKAGE (system));</pre>
     </td>
     <td>
      0.60
     </td>
    </tr>
   </tbody>
  </table>
 </body>
</html>